home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / H-I / HyperScrap.cpt / HyperScrap / card_5736.txt < prev    next >
Text File  |  1989-01-09  |  1KB  |  62 lines
  1. -- card: 5736 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 5614
  5. -- name: Graphics
  6. ----- HyperTalk script -----
  7. on deleteField
  8.   put the random of 5 into hat
  9.   beep hat
  10.   choose browse tool
  11. end deleteField
  12.  
  13.  
  14.  
  15. -- part 9 (field)
  16. -- low flags: 01
  17. -- high flags: 0007
  18. -- rect: left=110 top=87 right=184 bottom=310
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: lkqy
  27. ----- HyperTalk script -----
  28. function clickLine
  29. return (trunc(((scroll of the target) +(item two of the clickloc) -(item two of the rect of the target)) div the textheight of the target) + 1)
  30. end clickLine
  31.  
  32. on mouseUp
  33.   lock screen
  34.   put clickline() into whatLine
  35.   put line whatLine of me into whatGraphic
  36.   choose field tool
  37.   click at the loc of me
  38.   doMenu "Clear Field"
  39.   go to card whatGraphic of stack "HyperScrap"
  40.   if the result is not empty then
  41.     pop card
  42.     exit mouseUp
  43.   end if
  44.   show background button "Paste"
  45.   choose browse tool
  46.   unlock screen
  47. end mouseUp
  48.  
  49.  
  50.  
  51.  
  52. -- part contents for card part 2
  53. ----- text -----
  54.  
  55. Blank Graphic
  56. Cool Backround
  57. SprayCan arc
  58. Globe
  59. Icons
  60. Plus
  61. Line 2
  62. Line